home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / ole1v10a.lha / OLE_System / modules / fw_st / Draw_Font_Table.fw < prev    next >
Encoding:
Text File  |  1995-02-10  |  574 b   |  31 lines
  1. /*
  2.  * Draw_Font_Table.fw
  3.  *
  4.  * USAGE: Draw_Font_Table.fw
  5.  *
  6.  * Let you see all printable characters for the curret font.
  7.  *
  8.  * HISTORY:
  9.  * v1.03    aligned with the new server design v1.10
  10.  *
  11.  * $(C): (1994, Rocco Coluccelli, Bologna)
  12.  * $VER: Draw_Font_Table.fw 1.03 (30.Nov.1994)
  13.  */
  14.  
  15. oleport        = 'OLE_SERVER'
  16. olerexx        = 'OLE.rexx'
  17.  
  18. userport    = ADDRESS()
  19. userscreen    = 'Workbench'
  20. module1        = 'FontTable.fw'
  21.  
  22. IF ~SHOW('P',oleport) THEN DO
  23.     ADDRESS COMMAND
  24.     "Run >NIL: Rx" olerexx
  25.     "WaitForPort" oleport
  26.     END
  27.  
  28. CALL SendParsed(oleport,'NEWJOB',userport,userscreen,module1)
  29.  
  30. EXIT 0
  31.